(* clock.pas *)

program clock;

uses nodes, ListCr;

var
   i : integer;
   t : link;

begin
   NodesNr := 12;
   for i := 1 to NodesNr do
      NodesTab[i].item.h := i;
  for i := 1 to 12 do
      NodeIns(NodesTab[i]); 
   t := head;
   for i := 1 to 2*NodesNr do
   begin
      t := t^.next;
      write(t^.item.h, ' ');
   end;
end.
